home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 May: Tool Chest / Developer CD Series May 1996 (Tool Chest) (Apple Computer) (1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / User Contributions / Misc.sea / Misc / ift-pop-up-menu.lisp < prev    next >
Encoding:
Text File  |  1993-02-26  |  1.5 KB  |  40 lines  |  [TEXT/CCL2]
  1. ;;; Extension to IFT for pop-up-menu.lisp
  2. ;;; by Daniel LaLiberte (liberte@ncsa.uiuc.edu)  August 1992
  3.  
  4. #| Load up the interface builder and extensions.
  5. (load "ccl:Interface Tools;make-ift")
  6. (ift::load-ift)
  7. (load "ccl:Interface Tools;ift-icon-dialog-item")
  8. (load "ccl:Interface Tools;ift-pop-up-menu")
  9. |#
  10.  
  11. (in-package :interface-tools)
  12.  
  13. (add-editable-dialog-item (make-instance 'ccl:pop-up-menu
  14.                             :item-display "item 1"
  15.                             :dialog-item-text "Popup"
  16.                             :menu-items 
  17.                             (list 
  18.                              (make-instance 'menu-item
  19.                                :menu-item-title "item one"
  20.                                :menu-item-action #'(lambda ()
  21.                                                            )))))
  22.  
  23. ;;(remove-editable-dialog-item 'ccl:pop-up-menu)
  24.  
  25. (defmethod add-editor-items :after ((popup-item ccl:pop-up-menu) editor)
  26.   (let* ((position *editor-items-start-pos*)
  27.          (size #@(116 16))
  28.          ;;(delta (make-point 0 (+ (point-v size) 5)))
  29.          )
  30.     (add-subviews 
  31.      editor
  32.      (make-dialog-item 'button-dialog-item
  33.                        position
  34.                        ;;(setq position (add-points position delta))
  35.                        size "Set menu items"
  36.                        #'(lambda (item)
  37.                              (declare (ignore item))
  38.                              (make-instance 'menu-editor :menu popup-item)
  39.                              ))
  40.      )))